home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / aplibs91.zip / OPENDEMO.SW < prev    next >
Text File  |  1991-07-01  |  851b  |  34 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  10.         ^                       SYSTEM AND DOS INFO
  11.         ^                        =================
  12.         ^
  13.         ^    DOS VER. {            COLOR DISPLAY DETECTED ? {
  14.         ^
  15.         ^    RODENT DETECTED ? {                 SOUND ON ? {
  16.         ^    
  17.         ^       CURRENT DEFAULT DRIVE & DIR: { {
  18.         ^
  19.         ^    FREE SYSTEM MEMORY {    K.    FREE DISK SPACE {     K.
  20.         ^
  21.         ^^^
  22.  
  23. 12345678901234567890123456789012345678901234567890123456789012345678901234567890
  24. \
  25. DosVer!, "#.##"
  26. MID$ ("YN", 2+ColorDisplay, 1), "!"
  27. MID$ ("YN", 2+NeedDCon, 1), "!"
  28. MID$ ("YN", 2+SoundOn, 1), "!"
  29. GetCurrentDrive$, "\\"
  30. GetCurrentDir$ (""), "\               \"
  31. FRE (-1) / 1024, "####"
  32. GetFreeSpace! ("") / 1024, "#####"
  33.  
  34.